home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / WA0729.ZIP / VIEW.FRM (.txt) < prev   
Visual Basic Form  |  1992-11-11  |  6KB  |  112 lines
  1. wwwwwwwwwwwww
  2. Form1%
  3. Delete_BTN
  4. &Delete
  5. Quit_BTN
  6. &Quit
  7. Save_BTN
  8. Sa&ve
  9. Message_EDIT
  10. Subject_EDIT
  11. To_EDIT
  12. Subject_LBL
  13.     &Subject:
  14. To_LBL
  15. Save_BTN_Click2
  16. MAPIMessage
  17.     MapiRecip
  18. MapiFile
  19. ignore
  20. DisplayStatus*
  21. MapiSession
  22. RecipClassT
  23. MAPI_TO]
  24. MAPI_CC
  25. FileNameL
  26. PathNameo
  27. Position
  28. Subject
  29. NoteText
  30. Bodyo
  31. RecipCount
  32.     FileCount
  33. MAPISaveMail 
  34. MsgId
  35. Form_Click
  36. @    Form_Load5
  37. Caption
  38. SubjectList
  39.     ListIndex
  40. IdList
  41. MAPIReadMail
  42. SUCCESS_SUCCESS
  43. Subject_EDITD
  44. Message_EDIT]
  45. Command2_Click*
  46. Quit_BTN_Click
  47. Subject_EDIT_Change
  48. Delete_BTN_Clickf
  49.     ListCount
  50. MAPIDeleteMail
  51. Unload
  52. Unlod
  53. Message_EDIT_Change
  54. tatic
  55. Dimtatic
  56. DisplayMail
  57. nRecip
  58. nFilesR
  59. nRecips
  60. nRecipCount
  61. nFileCount
  62. To_EDIT
  63. Ednif
  64.     OldCursor
  65. MousePointer
  66. MousPointer
  67.  Define global message, recipient and file
  68.  structures for use within the view form
  69. Delete_BTN_Click
  70.  Get the index of the seleted subject andt
  71.  it's corresponding message id
  72.  Call MAPIDeleteMail with the message id
  73. Delete Mail
  74.  If the call succeeded, the remove the subject
  75.  and the message id from the SubjectList and
  76.  the IdList.
  77.  Re-highlight the proper subject in
  78.  the SubjectList
  79.  Hide the View windowi
  80. DisplayMail
  81. MsgBox (M.Subject)
  82. MsgBox (M.NoteText)
  83. MsgBox (Str$(M.RecipCount) + " " + Str$(M.FileCount))M
  84. MsgBox (R(0).Name)
  85. Form_Load
  86.  the if session handle is zero, we assumes
  87.  the user is not logged on yet
  88. You must logon to read mail!
  89.  Get the subject list index and itsd
  90.  corresponding message idg
  91.  Display the hourglass cursor until*
  92.  the ReadMail call completes
  93.  Display a message if we fail 
  94. An error was detected while reading mail!
  95.  Restore the mousepointer to the originalg
  96.  cursoru
  97.  If we're successful, display the mail
  98.  Display any file attachment information
  99. Quit_BTN_Click
  100.  Unload the view window when
  101.  we quit
  102. Save_BTN_Click
  103.  Save any file attachment informationa
  104.  NOTE: This is currently disabled
  105. ReDim Mf(0 To 0) As MapiFile
  106. Mf(0).FileName = "config.dat"*
  107. Mf(0).PathName = "c:\config.sys"
  108. Mf(0).Position = -1:
  109. M.FileCount = 1=
  110.  Save the name in the To: edit field
  111.  Save the subject and the messages
  112.